10 DATA C3,97,75: ' JP INICIOPROGRAMA
20 ' -- Cuerpo del programa
30 ' Etiqueta de salto: INICIOPROGRAMA, posicion: 30103
40 DATA 3E,02: ' LD A, 2
50 DATA CD,0E,BC: ' CALL &BC0E - SET MODE
60 DATA 3E,1A: ' LD A, 26 - Constante: WHITE
70 DATA 47: ' LD B, A
80 DATA 3E,1A: ' LD A, 26 - Constante: WHITE
90 DATA 4F: ' LD C, A
100 DATA 3E,01: ' LD A, 1
110 DATA CD,32,BC: ' CALL &BC32 - SET INK
120 DATA 3E,03: ' LD A, 3
130 DATA 32,34,75: ' LD (30004), A - Asignacion: FILA=3
140 DATA 3E,02: ' LD A, 2
150 DATA CD,6F,BB: ' CALL &BB6F - CURSOR COLUMN
160 DATA 3A,34,75: ' LD A, (30004) - Variable: FILA
170 DATA CD,72,BB: ' CALL &BB72 - CURSOR ROW
180 ' -- Escritura de cadena
190 DATA C3,C5,75: ' JP saltoIniHOLAMUNDO
200 ' txtHOLAMUNDO: 30138
210 DATA 48,6F,6C,61,20,4D,75,6E,64,6F,00: 'Texto: Hola Mundo
220 ' saltoIniHOLAMUNDO: 30149
230 DATA 11: ' LD DE, texto
240 DATA BA,75: ' direcc de salto txtHOLAMUNDO
250 ' saltoRepHOLAMUNDO: 30152
260 DATA 1A: ' LD A, (DE)
270 DATA B7: ' OR A
280 DATA CA: ' JP Z - Salir
290 DATA D4,75: ' direcc de salto finHOLAMUNDO
300 DATA CD,5A,BB: 'CALL &BB5A - WRITECHAR
310 DATA 13: ' INC DE
320 DATA C3,C8,75: ' JP saltoRepHOLAMUNDO
330 ' Etiqueta de salto: finHOLAMUNDO, posicion: 30164
340 ' -- Fin de escritura de cadena
350 DATA C9: ' RET
360 longitud = 64
370 MEMORY 29999
380 'Codigo del programa
390 FOR n=30100 TO 30100+longitud
400   READ a$:POKE n,VAL("&"+a$)
410 NEXT
420 'Espacio para variables
430 FOR n=30000 TO 30099
440   POKE n,0
450 NEXT
460 POKE 30000, &CD: 'inicio: CALL 30100
470 POKE 30001, &94
480 POKE 30002, &75
490 CALL 30000
